10 FORI=1TO200:B=INT(RND(1)*127):POKE53272,B:NEXT:POKE53280,.:POKE53281,.
20 POKE53272,21:PRINT"[147][158]DEPACK-EFFEKT...":POKE198,0:WAIT198,1:LIST10